home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / intern.module < prev    next >
Text File  |  1996-09-18  |  1KB  |  86 lines
  1. MODULE Intern;
  2.  
  3. VAR
  4.   RETNUM    : NUMBER;
  5.   RETNUM2   : NUMBER;
  6.   RETSTRING : STRING;
  7.  
  8. KEY "control 1"
  9.   IF GetNumber($text1,1,RETNUM) THEN
  10.     MacroRec(RETNUM)
  11.   END;
  12. END;
  13.  
  14. KEY "control 2"
  15.   MacroStop
  16. END;
  17.  
  18. KEY "control 3"
  19.   IF GetNumber($text2,1,RETNUM) THEN
  20.     MacroPlay(RETNUM,1)
  21.   END;
  22. END;
  23.  
  24. KEY "control 4"
  25.   IF GetNumber($text3,1,RETNUM) AND GetNumber($text4,1,RETNUM2) THEN
  26.     MacroPlay(RETNUM,RETNUM2)
  27.   END;
  28. END;
  29.  
  30. MENU "Internes";
  31.  
  32. ITEM $item1_1 ""
  33.   CopyArea([%MARKA,%MARKA],[%MARKB,%MARKB],"1");
  34.   ParseBuffer("1");
  35.   Flash
  36. END;
  37.  
  38. ITEM $item1_2 ""
  39.   IF GetFile("","",RETSTRING) THEN
  40.     IF LoadBuffer(RETSTRING,"1") THEN
  41.       ParseBuffer("1");
  42.       Flash
  43.     END;
  44.   END;
  45. END;
  46.  
  47. ITEMBAR;
  48.  
  49. ITEM $item1_3 ""
  50.   CopyArea([%MARKA,%MARKA],[%MARKB,%MARKB],"1");
  51.   DoBuffer("1");
  52.   Flash
  53. END;
  54.  
  55. ITEM $item1_4 "D"
  56.   IF GetString($text5,"",RETSTRING) THEN
  57.     DoString(RETSTRING)
  58.   END;
  59. END;
  60.  
  61. ITEM $item1_5 "."
  62.   ShowErrors;
  63. END;
  64.  
  65. ITEMBAR;
  66.  
  67. ITEM $item1_6 "1"
  68.   MacroRec(0)
  69. END;
  70.  
  71. ITEM $item1_7 "2"
  72.   MacroStop
  73. END;
  74.  
  75. ITEM $item1_8 "3"
  76.   MacroPlay(0,1)
  77. END;
  78.  
  79. ITEM $item1_9 "4"
  80.   IF GetNumber($text6,1,RETNUM) THEN
  81.     MacroPlay(0,RETNUM)
  82.   END;
  83. END;
  84.  
  85. END Intern.
  86.